(setenv "WOOF_COMPILER" "c:/my_system/src/misc/woof/trunk/woofc.exe")

(define (copy-char-port-to-char-port in out)
   (let ((buf (make-string 4096)))
     (let loop ()
       (let ((n (read-substring buf 0 (string-length buf) in)))
         (if (> n 0)
             (begin
               (write-substring buf 0 n out)
               (loop)))))))


(let* ((p (open-process (list path: (getenv "WOOF_COMPILER")
			      buffering: #f)))
       (s (open-input-string "1.1.1.1.1.1")))
  (copy-char-port-to-char-port s p)
  (close-output-port p)
  (let ((bc (read-all p)))
    (pp bc)))



